home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
DeleteNew.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
507b
|
28 lines
/*
$VER: DeleteNew.zprx 1.2 (04.12.94) by Ralph Seichter
ARexx script for Zodiac's Point.
Adds deletion marker to all new messages in current board.
You may specifiy FORCE and LATER as options
*/
PARSE ARG zpPort opt1 opt2
ADDRESS VALUE zpPort
OPTIONS RESULTS
whichlevel
IF (RESULT = "BOARD") THEN DO
count new
IF (RESULT > 0) THEN DO
selectmessage new
delete opt1 opt2
selectmessage none
END
ELSE
requestnotify 'No new messages!'
END
ELSE
requestnotify 'Not inside a board!'
/* EOF */